10 REM    JOY2
110 GOSUB380
130 GOSUB330:REM   READ JOYSTICK
150 YY=YY+UD(JD)
160 XX=XX+LR(JD)
170 IFYY<0THENYY=24
180 IFYY>24THENYY=0
190 IFXX<0THENXX=39
200 IFXX>39THENXX=0
210 POKERP,0
220 POKERX,YY
230 POKERY,XX
240 IF((XX=39)AND(YY=24))THEN130
250 SYS CU :REM  LOG CURSOR
260 PRINTCH$;
270 IFBT=16THEN300
280 FORTT=1TO6
290 PRINTCHR$(157)CHR$(32)
300 GETIN$:IFIN$<>""THENCH$=IN$
310 GOTO130
330 JP=PEEK(J1)
340 BT=JPAND16
350 JD=15-(JPAND15)
360 RETURN
380 PRINTCHR$(147)
400 FORK=0TO10
410 READUD(K),LR(K)
420 NEXT
440 CU=65520:J1=56320
470 XX=20:YY=12
480 CH$=CHR$(113)
490 RX=781:RY=782:RP=783
500 RETURN
520 DATA 0,0,-1,0,1,0,0,0,0,-1
580 DATA -1,-1,1,-1,0,0,0,1,-1,1,1,1